home *** CD-ROM | disk | FTP | other *** search
/ LiquidLibrary 2005 September / LiquidLibrary 2005 Sep - Disc 1.iso / pc / Portfolio Browser / Filters / PDF / LIB / gs_ccfnt.ps < prev    next >
Text File  |  2003-01-03  |  2KB  |  66 lines
  1. %    Copyright (C) 1994, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is licensed to a single customer by Artifex Software Inc.
  4. % under the terms of a specific OEM agreement.
  5.  
  6. % $RCSfile$ $Revision$
  7. % Find and register all the precompiled font operators in systemdict.
  8.  
  9. /registerfont            % <fontname> <fontdict> registerfont <font>
  10.  { DEBUG { (Registering ) print 1 index = } if
  11.    dup begin
  12.      Encoding type /nametype eq
  13.       { Encoding .findencoding /Encoding exch def
  14.       }
  15.      if
  16.      dup /PrefEnc known
  17.       { PrefEnc type /nametype eq
  18.      { PrefEnc .findencoding /PrefEnc exch def
  19.      }
  20.     if
  21.       }
  22.      if
  23.      dup /FDepVector known
  24.       { /FDepVector [ FDepVector
  25.      { .FontDirectory 1 index .knownget
  26.         { exch pop }
  27.         { ccfonts 1 index .knownget
  28.            { registerfont
  29.            }
  30.            { Fontmap 1 index known
  31.           { findfont }
  32.           { pop NullFont }
  33.          ifelse
  34.            }
  35.           ifelse
  36.         }
  37.        ifelse
  38.      }
  39.     forall ] readonly def
  40.       }
  41.      if
  42.    end
  43.    % Use the value of definefont appropriate at run-time, not bind-time
  44.    /definefont load exec
  45.  } bind odef
  46. % Bind recursive call (bind descends into oparrays: feature!)
  47. /registerfont dup load bind def
  48.  
  49. /.loadinitialfonts {
  50.   //.loadinitialfonts exec
  51.   NOCCFONTS not {
  52.     /ccfonts mark
  53.       0 1 null .getccfont 1 sub { .getccfont dup /FontName get exch } for
  54.     .dicttomark def
  55.         % Make sure these fonts are registered as "resources".
  56.     currentfile {
  57.       pop ccfonts {
  58.     .FontDirectory 2 index known { pop pop } { registerfont pop } ifelse
  59.       } forall
  60.     } .execasresource
  61.     currentdict /ccfonts .undef
  62.   } if
  63. } bind def
  64.  
  65. currentdict /registerfont .undef
  66.